﻿Public Class frmKillWord
    Inherits formPadrao
    Private Sub btnKill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKill.Click
        Try
            Dim result = MessageBox.Show("ATENÇÃO !!! TODAS OS DOCUMENTOS WORD ABERTO NO COMPUTADOR SERÃO FECHADOS. SALVE OS DOCUMENTOS ANTES DE PROSSEGUIR", "ATENÇÃO", MessageBoxButtons.OKCancel)
            If (result = vbOK) Then
                generica.encerraTodosProcessosWord()
            End If
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub
End Class